home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 May / EnigmA AMIGA RUN 07 (1996)(G.R. Edizioni)(IT)[!][issue 1996-05][EARSAN CD VI].iso / progs / s / xtruder / examples / xtrudercheckall.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-07  |  529b  |  30 lines
  1. /*
  2. ** Check all that can be checked
  3. */
  4.  
  5. Options Results
  6. Address XTRUDER
  7.  
  8. REQUESTUSER TEXT '"Should I check prespecified entries ?"' RESPONSE '"_Yes|_No"'
  9.  
  10. IF rc = 1 THEN DO
  11.   CHECKPRESPECIFIED
  12.   
  13.   IF rc >= 0 THEN
  14.      Say rc' vira found!'
  15. END
  16.  
  17. REQUESTUSER TEXT '"Would you like to check specified files and drawers ?"' RESPONSE '"_Yes|_No"'
  18.  
  19. IF rc = 1 THEN DO
  20.   CHECKSPECIFIED
  21.   
  22.   IF rc >= 0 THEN
  23.      Say rc' vira found!'
  24. END
  25.  
  26. REQUESTUSER TEXT '"Should I check vectors ?"' RESPONSE '"_Yes|_No"'
  27.  
  28. IF rc = 1 THEN
  29.   CHECKVECTORS
  30.